home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbtools1.arc
/
AECORECT.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-01-11
|
384b
|
19 lines
rem $linesize:132
rem $title:'Ask if correct, usefull for idling'
rem $subtitle:'Introduction'
' Include the COMMON values
rem $include:'AESHARED.BAS'
sub Correct(b%) static
dialog$(1)="Is this correct ? If you answer No, then"
dialog$(2)="you'll have chance to correct it."
call Yes.No(yn$)
if yn$="Y" then
b%=1%
end if
end sub